/* calling.rex                                                               */
result=multiply(12,2)
SAY result
::REQUIRES routine.rex
code 31)                Using a routine in Rexx [Prem06] 

/* routine.rex                                                               */
::ROUTINE multiply PUBLIC
result = 0
USE ARG x, b
DO b
result = x + result;
END
RETURN result